Leaflet View of Same Map

GreenPalette <- colorNumeric(palette = "Greens",
                               domain = contiguous_states$wages)
contiguous_states %>% 
  st_transform(crs = "+init=epsg:4326") %>%
  leaflet(width = "100%") %>%
  addProviderTiles(provider = "CartoDB.Positron") %>% 
  addPolygons(fillOpacity = 0.7,
              smoothFactor = 0,
              stroke = FALSE, 
              color = ~GreenPalette(wages)) %>% 
  addLegend("bottomleft", 
              pal = GreenPalette, 
              values = ~ wages,
              bins = 5,
              title = "Median Salary - Substance Abuse Social Workers",
              labFormat = labelFormat(prefix = "$"),
              opacity = 1)
LS0tDQp0aXRsZTogIlRoZW1hdGljIExlYWZsZXQgRXhhbXBsZSINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0KbGlicmFyeShsZWFmbGV0KQ0KYGBgDQoNCg0KIyMgTGVhZmxldCBWaWV3IG9mIFNhbWUgTWFwDQoNCmBgYHtyfQ0KDQpHcmVlblBhbGV0dGUgPC0gY29sb3JOdW1lcmljKHBhbGV0dGUgPSAiR3JlZW5zIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkb21haW4gPSBjb250aWd1b3VzX3N0YXRlcyR3YWdlcykNCg0KY29udGlndW91c19zdGF0ZXMgJT4lIA0KICBzdF90cmFuc2Zvcm0oY3JzID0gIitpbml0PWVwc2c6NDMyNiIpICU+JQ0KICBsZWFmbGV0KHdpZHRoID0gIjEwMCUiKSAlPiUNCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlciA9ICJDYXJ0b0RCLlBvc2l0cm9uIikgJT4lIA0KICBhZGRQb2x5Z29ucyhmaWxsT3BhY2l0eSA9IDAuNywNCiAgICAgICAgICAgICAgc21vb3RoRmFjdG9yID0gMCwNCiAgICAgICAgICAgICAgc3Ryb2tlID0gRkFMU0UsIA0KICAgICAgICAgICAgICBjb2xvciA9IH5HcmVlblBhbGV0dGUod2FnZXMpKSAlPiUgDQogIGFkZExlZ2VuZCgiYm90dG9tbGVmdCIsIA0KICAgICAgICAgICAgICBwYWwgPSBHcmVlblBhbGV0dGUsIA0KICAgICAgICAgICAgICB2YWx1ZXMgPSB+IHdhZ2VzLA0KICAgICAgICAgICAgICBiaW5zID0gNSwNCiAgICAgICAgICAgICAgdGl0bGUgPSAiTWVkaWFuIFNhbGFyeSAtIFN1YnN0YW5jZSBBYnVzZSBTb2NpYWwgV29ya2VycyIsDQogICAgICAgICAgICAgIGxhYkZvcm1hdCA9IGxhYmVsRm9ybWF0KHByZWZpeCA9ICIkIiksDQogICAgICAgICAgICAgIG9wYWNpdHkgPSAxKQ0KDQoNCg0KYGBg